﻿Public Class Form22

    'Private Sub Tbl_testBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles Tbl_testBindingNavigatorSaveItem.Click
    '    Me.Validate()
    '    Me.Tbl_testBindingSource.EndEdit()
    '    Me.TableAdapterManager.UpdateAll(Me.Test4DataSet)

    'End Sub

    Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet1.tbl_thu)
        Me.Tbl_testTableAdapter1.Fill(Me.Test4DataSet1.tbl_test)
        'TODO: This line of code loads data into the 'Test4DataSet1.tbl_test' table. You can move, or remove it, as needed.

        'TODO: This line of code loads data into the 'Test4DataSet.tbl_test' table. You can move, or remove it, as needed.
        'Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet.tbl_thu)
        'Me.Tbl_testIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_thu, Me.Tbl_thuBindingSource, Me.Tbl_thuTableAdapter, Me.Test4DataSet)
        'Me.Tbl_testIUltraGrid.setChoPhepMenuStrip()
        'Me.Tbl_thuIUltraGrid.setChoPhepMenuStrip()

    End Sub



    Private Sub Form22_Load_1(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet1.tbl_thu)
        Me.Tbl_testTableAdapter1.Fill(Me.Test4DataSet1.tbl_test)
        'Dim UltraGridBand1 As Infragistics.Win.UltraWinGrid.UltraGridBand = New Infragistics.Win.UltraWinGrid.UltraGridBand("tbl_thu", -1)
        'Dim UltraGridColumn5 As Infragistics.Win.UltraWinGrid.UltraGridColumn = New Infragistics.Win.UltraWinGrid.UltraGridColumn("ma")
        'Dim UltraGridColumn6 As Infragistics.Win.UltraWinGrid.UltraGridColumn = New Infragistics.Win.UltraWinGrid.UltraGridColumn("ten")
        'Dim UltraGridColumn7 As Infragistics.Win.UltraWinGrid.UltraGridColumn = New Infragistics.Win.UltraWinGrid.UltraGridColumn("ghichu")
        'Dim UltraGridColumn8 As Infragistics.Win.UltraWinGrid.UltraGridColumn = New Infragistics.Win.UltraWinGrid.UltraGridColumn("id")
        'Dim UltraGridColumn9 As Infragistics.Win.UltraWinGrid.UltraGridColumn = New Infragistics.Win.UltraWinGrid.UltraGridColumn("id1")
        'Dim UltraGridColumn10 As Infragistics.Win.UltraWinGrid.UltraGridColumn = New Infragistics.Win.UltraWinGrid.UltraGridColumn("id2")
        'UltraGridColumn5.Header.VisiblePosition = 0
        'UltraGridColumn6.Header.VisiblePosition = 1
        'UltraGridColumn7.Header.VisiblePosition = 2
        'UltraGridColumn8.Header.VisiblePosition = 3
        'UltraGridColumn9.Header.VisiblePosition = 4
        'UltraGridColumn10.Header.VisiblePosition = 5
        'UltraGridBand1.Columns.AddRange(New Object() {UltraGridColumn5, UltraGridColumn6, UltraGridColumn7, UltraGridColumn8, UltraGridColumn9, UltraGridColumn10})
        'Me.Tbl_thuIUltraGrid.DisplayLayout.BandsSerializer.Add(UltraGridBand1)
        Me.Tbl_thuIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet1.tbl_thu, Me.Tbl_thuBindingSource, Me.Tbl_thuTableAdapter, Me.Test4DataSet1)
        Me.Tbl_thuIUltraGrid.setChoPhepMenuStrip()
        Me.Tbl_thuIUltraGrid.setThemIUltraDropDown(Me.Tbl_thuIUltraDropDown, Me.Test4DataSet1.tbl_thu)
        'Tbl_thuIUltraGrid.setTimKiemTheoShift()
    End Sub


End Class